perm filename QNOTE[MUS,LCS]2 blob sn#102046 filedate 1974-05-14 generic text, type T, neo UTF8
03800	SRATE←25000;MAG←512/SRATE;SPEED←5;NCHNS←4;
04000	
04200	COMPILE; INSTRUMENT SIMP;
04400	OSCIL(P4,MAG*P3,P5);OUTA←OUTA+U1*P6;
04500	OUTB←OUTB+U1*P7;
04510	OUTC←OUTC+U1*P8;
04520	OUTD←OUTD+U1*P9;
04600	END; FINISH;
04800	<RCDFLG←-1;
05000	PLAY;SIMP 0 1  A 2000 F1 0 1 0 0;FINISH;PRINT(LSBUF);
05100	<PLAYS IN CH.2 ONLY.